home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / tradWeb.lha / InstalltradWeb / install-TradWeb < prev    next >
Encoding:
Text File  |  1998-03-28  |  2.1 KB  |  100 lines
  1. ;test d'installer
  2. ;----------------------------------
  3. ;definition des variables de base
  4. ;
  5. ;MINSUSER  AVERAGE
  6. ;
  7. ;LANGUAGE francais
  8. ;--------------------------
  9. ;dans quel repertoire
  10. ;--------------------------
  11.  
  12. (set #name
  13.     (askdir
  14.         (prompt "Indiquer le répertoire ou placer TradWeb \n un repertoire TradWeb sera créer ")
  15.         (help @askdir-help)
  16.         (default "ram:")
  17.     )
  18. )
  19.  
  20. ;--------------------------------
  21. ;determine l'origine des fichiers
  22. ;--------------------------------
  23.  
  24. (set #source (pathonly @icon))
  25. (set #path (tackon #name "tradweb"))
  26. (set #repertoire (exists #path) )
  27.  
  28. ;--------------------------------
  29. ;verifie si repertoire existant
  30. ;--------------------------------
  31.  
  32. (if #repertoire
  33.     (    
  34.         (abort "Répertoire ou fichier déja existant \n Installation interrompue "
  35.         "\n Effacer le fichier ou repertoire "
  36.         "\n et recommencer l'installation"
  37.         "\n ou recommencer et choissiser "
  38.         "\n un autre repertoire de destination") 
  39.     )
  40.  
  41.      (makedir #path
  42.         (prompt "Repertoire TradWeb en cours de creation")
  43.         (help @makedir-help)
  44.         (infos)
  45.         (confirm)
  46.     )
  47.     )    
  48. (complete 10 %)
  49. (set @default-dest #path)
  50.  
  51. ;----------------------------------
  52. ;cherche si on copie tout
  53. ;----------------------------------
  54. (set #choix (askoptions
  55.             (prompt "Installer aide en ligne")
  56.             (help "Indiquez les fichiers annexes a copier \n Aucun fichier est n'indispensable")
  57.         (choices "aide français" )
  58.         (default 1)
  59.         )        
  60. )        
  61. (complete 20 %)    
  62. ;----------------------------------
  63. ;copie les fichiers
  64. ;----------------------------------
  65. ;copie du programme
  66. (copyfiles
  67.     (prompt "Copier TradWeb")
  68.     (help "Copie le programme dans le répertoire choisi")
  69.     (source (tackon  #source "TradWeb"))
  70.     (infos)
  71.     (dest #path)    
  72.     (noposition)
  73.     (confirm)
  74. )
  75.  
  76. (complete 50 %)
  77. ;----------------------------------
  78. ;si copie demandes repertoire doc
  79. ;----------------------------------
  80.  
  81.  
  82. (if (BITAND 1 #choix )
  83.     (copyfiles
  84.         (prompt "Copier aide")
  85.         (help "Copie le ficier aide dans le répertoire  ")
  86.         (source (tackon #source "aide"))
  87.         (dest #path )
  88.         (infos)
  89.         (noposition)
  90.         (confirm)
  91.     )     
  92. )
  93.  
  94.  
  95. ;--------------------
  96. ;copier le complement
  97. ;--------------------    
  98. (complete 100 %)
  99.  
  100.